       program foobar
	     parameter (imap=501)
		 common /coord/ rright, barea(0:imap)
		 print *, "OK"
	   end